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Process TypicolBinoryMultiply (A,B) 
Z=0: 

For i in 0 to n-1 loop 

c := 0; 

For ] in 0 to n-1 loop 

Zi+j:= (Zi+j+Aj*Bj+c) mod 2; 

c := (Z i+j +Aj»Bj+c) div 2; 
end loop; 

for j- in n to 2n-1 loop 
Zj := (Zj+c) mod 2; 
c := (Zj +c) div 2; 
end loop; 
transmit Z; 
end loop; 



r 



Z;; 



BITS OF Z FEED 
SEQUENTIALLY 
ACROSS 



FIG. 1 0 



Process Reduce(Zj, N) 
c := 0; 

For i in 0 to n-1 loop 
woit for Z i 
Xj := Zj; 

Xj := (Xj+x*Ni+c) mode 2; 

c := (Xj+x»N|+c) div 2; 
end loop; 
X := X/2; 

For i in 1 to k-1 loop 
X = X mod 2; c := 0; 
For j in 0 to n-1 loop 
Xj =(Xi+x*Nj+c) mod 2; 



c =(Xj+x*Nj+c) div 2; 
end loop: 
X = X/2; 
end loop; 
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